home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Archiv / Dopus511.lha / LhADirOpus5V10.lha / LhADir / Install LhADir next >
Text File  |  1995-05-27  |  2KB  |  77 lines
  1. ; $VER: Install LhADir 1.0 (27.5.95)
  2. ; Script to install LhADir.dopus5 1.0.
  3. ; Written by Edmund Vermeulen.
  4.  
  5. ;=============================================================================
  6. ; check if Directory Opus 5 is already installed
  7.  
  8. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  9.     (abort "Directory Opus 5 must be installed first.")
  10. )
  11.  
  12. ;=============================================================================
  13. ; copy the files
  14.  
  15. (set @default-dest "DOpus5:arexx")
  16.  
  17. (copyfiles
  18.    (source "arexx")
  19.    (dest @default-dest)
  20.    (pattern "#?")
  21.    (files)
  22. )
  23.  
  24. (copyfiles
  25.    (source "filetypes/LHA archive")
  26.    (dest "DOpus5:filetypes")
  27.    (infos)
  28. )
  29.  
  30. (copyfiles
  31.    (source "buttons/LhADir Buttons")
  32.    (dest "DOpus5:buttons")
  33. )
  34.  
  35. (if
  36.    (askbool
  37.       (prompt "Install the LhADir toolbar?\n\n"
  38.               "Your current toolbar will be renamed to 'toolbar_old'."
  39.       )
  40.       (help "By installing the LhADir toolbar you will be able to "
  41.             "use the lister toolbar buttons for working on both normal "
  42.             "directories and LhADir listed archives.\n\n"
  43.             "The LhADir toolbar has the same functions as the default "
  44.             "lister toolbar."
  45.       )
  46.    )
  47.    (
  48.       (rename "DOpus5:buttons/toolbar" "DOpus5:buttons/toolbar_old")
  49.       (copyfiles
  50.          (source "buttons/toolbar_LhADir")
  51.          (dest "DOpus5:buttons")
  52.          (newname "toolbar")
  53.       )
  54.    )
  55. )
  56.  
  57. ;=============================================================================
  58. ; install catalogs
  59.  
  60. (set catalogs
  61.    (askoptions
  62.       (prompt "Install selected catalog translations?")
  63.       (help @askoptions-help)
  64.       (choices "Nederlands")
  65.       (default 0)
  66.    )
  67. )
  68.  
  69. (if (in catalogs 0)
  70.    (copyfiles
  71.       (source "Locale/Catalogs/nederlands/LhADir.catalog")
  72.       (dest "LOCALE:Catalogs/nederlands")
  73.    )
  74. )
  75.  
  76. (exit)
  77.